perm filename TAK.LAP[TIM,LSP] blob
sn#659313 filedate 1982-05-10 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00014 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002
C00004 00003
C00006 00004
C00008 00005
C00011 00006
C00014 00007
C00017 00008
C00020 00009
C00024 00010
C00027 00011
C00030 00012
C00033 00013
C00036 00014
C00037 ENDMK
C⊗;
'(THIS IS THE LAP FOR ((DSK (TIM LSP)) TAK MCL))
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117)
;COMPILED ON MAY 10, 1982, AT 11:57 AM
(LAP TAK SUBR)
(ARGS TAK (() . 3))
(PUSH P (% 0 0 FIX1))
(PUSH FXP 0 1)
(PUSH FXP 0 2)
(PUSH FXP 0 3)
(MOVE 7 -1 FXP)
(CAMGE 7 -2 FXP)
(JRST 0 G0002)
(MOVE 7 0 FXP)
(JRST 0 G0001)
G0002
(MOVE 7 -2 FXP)
(SUBI 7 1)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(NCALL 3 'TAK)
(MOVE 10 -2 FXP)
(SUBI 10 1)
(MOVEI 3 -3 FXP)
(MOVEI 2 -1 FXP)
(PUSH FXP 10)
(MOVEI 1 0 FXP)
(PUSH FXP 7)
(NCALL 3 'TAK)
(MOVE 10 -3 FXP)
(SUBI 10 1)
(MOVEI 3 -4 FXP)
(MOVEI 2 -5 FXP)
(PUSH FXP 10)
(MOVEI 1 0 FXP)
(PUSH FXP 7)
(NCALL 3 'TAK)
(PUSH FXP 7)
(MOVEI 3 0 FXP)
(MOVEI 2 -1 FXP)
(MOVEI 1 -3 FXP)
(NCALL 3 'TAK)
(SUB FXP (% 0 0 6 6))
G0001
(SUB FXP (% 0 0 3 3))
(POPJ P)
()
(LAP TAK-DCL SUBR)
(ARGS TAK-DCL (() . 3))
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(MOVE 7 0 2)
(CAMGE 7 0 1)
(JRST 0 G0002)
(MOVEI 1 0 3)
(JSP T PDLNMK)
(JRST 0 G0001)
G0002
(MOVE 7 0 1)
(SUBI 7 1)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(CALL 3 'TAK-DCL)
(MOVE 7 @ -1 P)
(SUBI 7 1)
(MOVE 3 -2 P)
(MOVE 2 0 P)
(PUSH P 1)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(CALL 3 'TAK-DCL)
(MOVE 7 @ -1 P)
(SUBI 7 1)
(MOVE 3 -2 P)
(MOVE 2 -3 P)
(PUSH P 1)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(CALL 3 'TAK-DCL)
(MOVEI 3 0 1)
(POP P 2)
(POP P 1)
(CALL 3 'TAK-DCL)
(SUB FXP (% 0 0 3 3))
G0001
(SUB P (% 0 0 3 3))
(POPJ P)
()
(LAP TRTAK SUBR)
(ARGS TRTAK (() . 3))
(PUSH P (% 0 0 FIX1))
(PUSH FXP 0 2)
(PUSH FXP 0 1)
(PUSH FXP 0 3)
(PUSH FXP (% 0))
(PUSH FXP (% 0))
G0001
(MOVE 7 -4 FXP)
(CAMGE 7 -3 FXP)
(JRST 0 G0005)
(MOVE 7 -2 FXP)
(JSP T FXCONS)
(JRST 0 G0007)
G0005
(MOVE 7 -3 FXP)
(SUBI 7 1)
(MOVEI 3 -2 FXP)
(MOVEI 2 -4 FXP)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(NCALL 3 'TAK)
(MOVE 10 -5 FXP)
(SUBI 10 1)
(MOVEI 3 -4 FXP)
(MOVEI 2 -3 FXP)
(PUSH FXP 10)
(MOVEI 1 0 FXP)
(MOVEM 7 -3 FXP)
(NCALL 3 'TAK)
(MOVEI 5 -3 FXP)
(MOVEM 7 -2 FXP)
(MOVEI 4 -2 FXP)
(MOVE 7 -4 FXP)
(SUBI 7 1)
(MOVEI 3 -6 FXP)
(MOVEI 2 -5 FXP)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(PUSH P 4)
(PUSH P 5)
(NCALL 3 'TAK)
(MOVE 10 @ 0 P)
(MOVE 11 @ -1 P)
(MOVEM 7 -5 FXP)
(MOVEM 10 -6 FXP)
(MOVEM 11 -7 FXP)
(SUB P (% 0 0 2 2))
(SUB FXP (% 0 0 3 3))
(JRST 0 G0001)
G0007
(MOVE 7 0 1)
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP BTAK SUBR)
(ARGS BTAK (() . 3))
(PUSH P (% 0 0 FIX1))
(PUSH FXP 0 3)
(PUSH FXP 0 2)
(PUSH FXP 0 1)
(JSP T (0PUSH -6))
(MOVE 7 -7 FXP)
(CAMGE 7 -6 FXP)
(JRST 0 G0011)
(MOVE 7 -10 FXP)
(JSP T FXCONS)
(JRST 0 G0014)
G0011
G0001
(MOVE 7 -6 FXP)
(SUBI 7 1)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P 5)
(MOVE 7 -7 FXP)
(CAMGE 7 0 5)
(JRST 0 G0017)
(MOVEI 1 -10 FXP)
(JRST 0 G0016)
G0017
(MOVEI 3 -10 FXP)
(MOVEI 2 -7 FXP)
(MOVEI 1 0 5)
(NCALL 3 'BTAK2)
(MOVEM 7 -5 FXP)
(MOVEI 1 -5 FXP)
G0016
(SUB P (% 0 0 1 1))
(PUSH P 1)
(MOVE 7 -7 FXP)
(SUBI 7 1)
(MOVEM 7 -1 FXP)
(MOVEI 5 -1 FXP)
(PUSH P 5)
(MOVE 7 -10 FXP)
(CAMGE 7 0 5)
(JRST 0 G0023)
(MOVEI 1 -6 FXP)
(JRST 0 G0022)
G0023
(MOVEI 3 -6 FXP)
(MOVEI 2 -10 FXP)
(EXCH 1 5)
(NCALL 3 'BTAK2)
(MOVEM 7 -4 FXP)
(MOVEI 1 -4 FXP)
G0022
(SUB P (% 0 0 1 1))
(PUSH P 1)
(MOVE 7 -10 FXP)
(SUBI 7 1)
(MOVEM 7 -2 FXP)
(MOVEI 5 -2 FXP)
(PUSH P 5)
(MOVE 7 -6 FXP)
(CAMGE 7 0 5)
(JRST 0 G0029)
(MOVEI 1 -7 FXP)
(JRST 0 G0028)
G0029
(MOVEI 3 -7 FXP)
(MOVEI 2 -6 FXP)
(EXCH 1 5)
(NCALL 3 'BTAK2)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
G0028
(SUB P (% 0 0 1 1))
(PUSH P 1)
(MOVE 7 @ -1 P)
(CAMGE 7 @ -2 P)
(JRST 0 G0034)
(JSP T PDLNMK)
(SUB P (% 0 0 3 3))
(JRST 0 G0014)
G0034
(MOVE 7 @ -2 P)
(MOVE 10 @ -1 P)
(MOVE 11 0 1)
(MOVEM 7 -6 FXP)
(MOVEM 10 -7 FXP)
(MOVEM 11 -10 FXP)
(SUB P (% 0 0 3 3))
(JRST 0 G0001)
G0014
(MOVE 7 0 1)
(SUB FXP (% 0 0 11 11))
(POPJ P)
()
(LAP BTAK2 SUBR)
(ARGS BTAK2 (() . 3))
(PUSH P (% 0 0 FIX1))
(PUSH FXP 0 3)
(PUSH FXP 0 2)
(PUSH FXP 0 1)
(JSP T (0PUSH -6))
G0001
(MOVE 7 -6 FXP)
(SUBI 7 1)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P 5)
(MOVE 7 -7 FXP)
(CAMGE 7 0 5)
(JRST 0 G0013)
(MOVEI 1 -10 FXP)
(JRST 0 G0012)
G0013
(MOVEI 3 -10 FXP)
(MOVEI 2 -7 FXP)
(MOVEI 1 0 5)
(NCALL 3 'BTAK2)
(MOVEM 7 -5 FXP)
(MOVEI 1 -5 FXP)
G0012
(SUB P (% 0 0 1 1))
(PUSH P 1)
(MOVE 7 -7 FXP)
(SUBI 7 1)
(MOVEM 7 -1 FXP)
(MOVEI 5 -1 FXP)
(PUSH P 5)
(MOVE 7 -10 FXP)
(CAMGE 7 0 5)
(JRST 0 G0019)
(MOVEI 1 -6 FXP)
(JRST 0 G0018)
G0019
(MOVEI 3 -6 FXP)
(MOVEI 2 -10 FXP)
(EXCH 1 5)
(NCALL 3 'BTAK2)
(MOVEM 7 -4 FXP)
(MOVEI 1 -4 FXP)
G0018
(SUB P (% 0 0 1 1))
(PUSH P 1)
(MOVE 7 -10 FXP)
(SUBI 7 1)
(MOVEM 7 -2 FXP)
(MOVEI 5 -2 FXP)
(PUSH P 5)
(MOVE 7 -6 FXP)
(CAMGE 7 0 5)
(JRST 0 G0025)
(MOVEI 1 -7 FXP)
(JRST 0 G0024)
G0025
(MOVEI 3 -7 FXP)
(MOVEI 2 -6 FXP)
(EXCH 1 5)
(NCALL 3 'BTAK2)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
G0024
(SUB P (% 0 0 1 1))
(PUSH P 1)
(MOVE 7 @ -1 P)
(CAMGE 7 @ -2 P)
(JRST 0 G0030)
(JSP T PDLNMK)
(SUB P (% 0 0 3 3))
(JRST 0 G0032)
G0030
(MOVE 7 @ -2 P)
(MOVE 10 @ -1 P)
(MOVE 11 0 1)
(MOVEM 7 -6 FXP)
(MOVEM 10 -7 FXP)
(MOVEM 11 -10 FXP)
(SUB P (% 0 0 3 3))
(JRST 0 G0001)
G0032
(MOVE 7 0 1)
(SUB FXP (% 0 0 11 11))
(POPJ P)
()
(LAP BTAK-DCL SUBR)
(ARGS BTAK-DCL (() . 3))
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JSP T (0PUSH -3))
(MOVE 7 0 2)
(CAMGE 7 0 1)
(JRST 0 G0008)
(MOVEI 1 0 3)
(JSP T PDLNMK)
(JRST 0 G0011)
G0008
G0001
(MOVE 7 @ -2 P)
(SUBI 7 1)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P 5)
(MOVE 7 @ -2 P)
(CAMGE 7 0 5)
(JRST 0 G0014)
(MOVE 1 -1 P)
(JRST 0 G0013)
G0014
(MOVE 3 -1 P)
(MOVE 2 -2 P)
(MOVEI 1 0 5)
(CALL 3 'BTAK-DCL2)
G0013
(SUB P (% 0 0 1 1))
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 7 @ -2 P)
(SUBI 7 1)
(MOVEM 7 -1 FXP)
(MOVEI 5 -1 FXP)
(PUSH P 5)
(MOVE 7 @ -2 P)
(CAMGE 7 0 5)
(JRST 0 G0021)
(MOVE 1 -4 P)
(JRST 0 G0020)
G0021
(MOVE 3 -4 P)
(MOVE 2 -2 P)
(EXCH 1 5)
(CALL 3 'BTAK-DCL2)
G0020
(SUB P (% 0 0 1 1))
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 7 @ -2 P)
(SUBI 7 1)
(MOVEM 7 -2 FXP)
(MOVEI 5 -2 FXP)
(PUSH P 5)
(MOVE 7 @ -5 P)
(CAMGE 7 0 5)
(JRST 0 G0028)
(MOVE 1 -4 P)
(JRST 0 G0027)
G0028
(MOVE 3 -4 P)
(MOVE 2 -5 P)
(EXCH 1 5)
(CALL 3 'BTAK-DCL2)
G0027
(SUB P (% 0 0 1 1))
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 7 @ -1 P)
(CAMGE 7 @ -2 P)
(JRST 0 G0034)
(JSP T PDLNMK)
(SUB P (% 0 0 3 3))
(JRST 0 G0011)
G0034
(MOVE 1 -2 P)
(JSP T PDLNMK)
(MOVEM 1 -5 P)
(MOVE 1 -1 P)
(JSP T PDLNMK)
(MOVEM 1 -4 P)
(MOVE 1 0 P)
(JSP T PDLNMK)
(MOVEM 1 -3 P)
(SUB P (% 0 0 3 3))
(JRST 0 G0001)
G0011
(JSP T PDLNMK)
(SUB P (% 0 0 3 3))
(SUB FXP (% 0 0 3 3))
(POPJ P)
()
(LAP BTAK-DCL2 SUBR)
(ARGS BTAK-DCL2 (() . 3))
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JSP T (0PUSH -3))
G0001
(MOVE 7 @ -2 P)
(SUBI 7 1)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P 5)
(MOVE 7 @ -2 P)
(CAMGE 7 0 5)
(JRST 0 G0010)
(MOVE 1 -1 P)
(JRST 0 G0009)
G0010
(MOVE 3 -1 P)
(MOVE 2 -2 P)
(MOVEI 1 0 5)
(CALL 3 'BTAK-DCL2)
G0009
(SUB P (% 0 0 1 1))
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 7 @ -2 P)
(SUBI 7 1)
(MOVEM 7 -1 FXP)
(MOVEI 5 -1 FXP)
(PUSH P 5)
(MOVE 7 @ -2 P)
(CAMGE 7 0 5)
(JRST 0 G0017)
(MOVE 1 -4 P)
(JRST 0 G0016)
G0017
(MOVE 3 -4 P)
(MOVE 2 -2 P)
(EXCH 1 5)
(CALL 3 'BTAK-DCL2)
G0016
(SUB P (% 0 0 1 1))
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 7 @ -2 P)
(SUBI 7 1)
(MOVEM 7 -2 FXP)
(MOVEI 5 -2 FXP)
(PUSH P 5)
(MOVE 7 @ -5 P)
(CAMGE 7 0 5)
(JRST 0 G0024)
(MOVE 1 -4 P)
(JRST 0 G0023)
G0024
(MOVE 3 -4 P)
(MOVE 2 -5 P)
(EXCH 1 5)
(CALL 3 'BTAK-DCL2)
G0023
(SUB P (% 0 0 1 1))
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 7 @ -1 P)
(CAMGE 7 @ -2 P)
(JRST 0 G0030)
(JSP T PDLNMK)
(SUB P (% 0 0 3 3))
(JRST 0 G0032)
G0030
(MOVE 1 -2 P)
(JSP T PDLNMK)
(MOVEM 1 -5 P)
(MOVE 1 -1 P)
(JSP T PDLNMK)
(MOVEM 1 -4 P)
(MOVE 1 0 P)
(JSP T PDLNMK)
(MOVEM 1 -3 P)
(SUB P (% 0 0 3 3))
(JRST 0 G0001)
G0032
(JSP T PDLNMK)
(SUB P (% 0 0 3 3))
(SUB FXP (% 0 0 3 3))
(POPJ P)
()
(*RSET (NOUUO () ))
(LAP TRTIMIT SUBR)
(ARGS TRTIMIT (() . 0))
(JSP T (0PUSH -5))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 3 '6)
(MOVEI 2 '14)
(PUSH P 1)
(MOVEI 1 '22)
(PUSH P 5)
(NCALL 3 'TRTAK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 1 -5 P)
(NCALL 1 'FLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 1 -4 P)
(NCALL 1 'FLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 1 -3 P)
(NCALL 1 'FLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 4 4))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP TIMIT SUBR)
(ARGS TIMIT (() . 0))
(JSP T (0PUSH -5))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 3 '6)
(MOVEI 2 '14)
(PUSH P 1)
(MOVEI 1 '22)
(PUSH P 5)
(NCALL 3 'TAK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 1 -5 P)
(NCALL 1 'FLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 1 -4 P)
(NCALL 1 'FLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 1 -3 P)
(NCALL 1 'FLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 4 4))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP TIMIT-DCL SUBR)
(ARGS TIMIT-DCL (() . 0))
(JSP T (0PUSH -5))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 3 '6)
(MOVEI 2 '14)
(PUSH P 1)
(MOVEI 1 '22)
(PUSH P 5)
(CALL 3 'TAK-DCL)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 1 -5 P)
(NCALL 1 'FLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 1 -4 P)
(NCALL 1 'FLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 1 -3 P)
(NCALL 1 'FLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 4 4))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP BTIMIT SUBR)
(ARGS BTIMIT (() . 0))
(JSP T (0PUSH -5))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 3 '6)
(MOVEI 2 '14)
(PUSH P 1)
(MOVEI 1 '22)
(PUSH P 5)
(NCALL 3 'BTAK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 1 -5 P)
(NCALL 1 'FLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 1 -4 P)
(NCALL 1 'FLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 1 -3 P)
(NCALL 1 'FLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 4 4))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP BTIMIT-DCL SUBR)
(ARGS BTIMIT-DCL (() . 0))
(JSP T (0PUSH -5))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 3 '6)
(MOVEI 2 '14)
(PUSH P 1)
(MOVEI 1 '22)
(PUSH P 5)
(CALL 3 'BTAK-DCL)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 1 -5 P)
(NCALL 1 'FLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 1 -4 P)
(NCALL 1 'FLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 1 -3 P)
(NCALL 1 'FLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 4 4))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()